gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\memModify.asp
<!-- #include file = "include/sysbase.asp" -->
<%
dim rsObj,strSQL
dim szMemberId
szMemberId = RealString(Request.QueryString("memberID"))
set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM member WHERE memberID = '" & szMemberId & "'"
'Response.Write strSQL
'Response.End
rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly
%>
<html>
<head>
<title>会员管理</title>
<meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<link rel = "stylesheet" href = "include/main.css" type = "text/css">
</head>
<body text = "#000000"><br>
<%if not (rsObj.eof or err) then %>
<form method = "post" action = "memModifySave.asp" name = "form1">
<table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "4" align = "center">
<tbody>
<tr>
<td colspan = 2 height = "18" bgcolor = "#4296E7">
<p align = "center"><font color = "#ffffff">会员管理</font></p>
</td>
</tr>
<tr>
<td width = 84 align = "right" height = "25" nowrap>
<div align = "right">会员帐号：</div>
</td>
<td width = "361" height = "25">
<input type = "text" name = "memberID" size = "20" value = "<%=rsObj("memberID")%>" readOnly>
</td>
</tr>
<tr>
<td width = 84 align = "right" height = "25" nowrap>
<div align = "right">会员姓名：</div>
</td>
<td width = "361" height = "25">
<input type = "text" name = "name" size = "20" value = "<%=rsObj("name")%>">
</td>
</tr>
<tr>
<td width = 84 align = "right" height = "25" nowrap>
<div align = "right"><font color = "#000000">会员性别：</font></div>
</td>
<td width = "361" height = "25">
<SELECT name = "sex">
<%if rsObj("sex") = "男" then %>
<option selected>男</option>
<option>女</option>
<%else %>
<option>男</option>
<option selected>女</option>
<%end if %>
</SELECT>
</td>
</tr>
<tr>
<td width = 84 align = "right" height = "26" nowrap>
<div align = "right">会员密码：</div>
</td>
<td width = "361" height = "26">
<input type = "checkbox" name = "modifyPassword" value = "1">
<font color = "#FF0000">修改密码</font>
<input type = "text" name = "password1" size = "12">
<input type = "text" name = "password2" size = "12">
</td>
</tr>
<tr>
<td width = 84 align = "right" height = "26" nowrap>
<div align = "right">密码提问：</div>
</td>
<td width = "361" height = "26">
<input type = "text" name = "question" size = "40" value = "<%=rsObj("question")%>">
</td>
</tr>
<tr>
<td width = 84 align = "right" height = "26" nowrap>
<div align = "right">密码答案：</div>
</td>
<td width = "361" height = "26">
<input type = "text" name = "answer" size = "40" value = "<%=rsObj("answer")%>">
</td>
</tr>
<tr>
<td width = 84 align = "right" height = "26" nowrap>
<div align = "right">电子邮件：</div>
</td>
<td width = "361" height = "26">
<input type = "text" name = "email" size = "30" value = "<%=rsObj("email")%>">
</td>
</tr>
<tr>
<td width = 84 align = "right" height = "26" nowrap>
<div align = "right">常用电话：</div>
</td>
<td width = "361" height = "26">
<input type = "text" name = "phone" size = "30" value = "<%=rsObj("phone")%>">
</td>
</tr>
<tr>
<td width = 84 align = "right" height = "26" nowrap>
<div align = "right">收货地址：</div>
</td>
<td width = "361" height = "26">
<input type = "text" name = "address" size = "60" value = "<%=rsObj("address")%>">
</td>
</tr>
<tr>
<td width = 84 align = "right" height = "26" nowrap>
<div align = "right">邮政编码：</div>
</td>
<td width = "361" height = "26">
<input type = "text" name = "Zipcode" size = "10" value = "<%=rsObj("Zipcode")%>">
</td>
</tr>
<tr>
<td colspan = "2" align = "right" height = "26" nowrap bgcolor = "#4296E7">
<div align = "center">
<input type = "submit" name = "Submit2" value = "修改">
<input type = "button" name = "Submit3" value = "返回" onClick = "window.location = '<%=Session("adminOldUrl")%>'">
</div>
</td>
</tr>
</tbody>
</table>
</form>
<%else %>
您查询的会员资料不存在，请<a href = "Javascript:window.history.go(-1)"> [返回]</a>
</body>
</html>
<%end if
%>